home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / Bonus / Plasmatech / ptscp_examples.exe / %MAINDIR% / Examples / NewFileEdit / Delphi / FMain.dfm / FMain.txt
Encoding:
Text File  |  2001-08-31  |  1.2 KB  |  53 lines
  1. object frmMain: TfrmMain
  2.   Left = 208
  3.   Top = 103
  4.   BorderIcons = [biSystemMenu, biMinimize]
  5.   BorderStyle = bsSingle
  6.   Caption = 'Shell Control Pack - New File Edit Example'
  7.   ClientHeight = 252
  8.   ClientWidth = 455
  9.   Color = clBtnFace
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object PTShellList1: TPTShellList
  17.     Left = 8
  18.     Top = 8
  19.     Width = 209
  20.     Height = 233
  21.     ReadOnly = False
  22.     IconOptions.AutoArrange = True
  23.     OnInsert = PTShellList1Insert
  24.     TabOrder = 0
  25.     ViewStyle = vsList
  26.   end
  27.   object btnCreate: TButton
  28.     Left = 232
  29.     Top = 8
  30.     Width = 217
  31.     Height = 23
  32.     Caption = '&Create File and Edit Name'
  33.     TabOrder = 1
  34.     OnClick = btnCreateClick
  35.   end
  36.   object Memo1: TMemo
  37.     Left = 232
  38.     Top = 152
  39.     Width = 209
  40.     Height = 89
  41.     BorderStyle = bsNone
  42.     Lines.Strings = (
  43.       'This example shows how to force a '
  44.       'TPTShellList control to show a recently '
  45.       'added file, and edit that file'#39's caption.'
  46.       ''
  47.       'An efficient algorithm is used which avoids '
  48.       'scanning the Items[ ] array.')
  49.     ParentColor = True
  50.     TabOrder = 2
  51.   end
  52. end
  53.